| Filename | (eval 1143)[/usr/share/perl5/POSIX/strftime/Compiler.pm:351] |
| Statements | Executed 0 statements in 0s |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 0 | 0 | 0 | 0s | 0s | POSIX::strftime::Compiler::__ANON__[:12] |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | sub { | ||||
| 2 | if ( @_ != 9 && @_ != 6 ) { | ||||
| 3 | Carp::croak 'Usage: strftime(sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)'; | ||||
| 4 | } | ||||
| 5 | |||||
| 6 | if ( @_ == 6 ) { | ||||
| 7 | my $sec = $_[0]; | ||||
| 8 | @_ = gmtime Time::Local::timegm(@_); | ||||
| 9 | $_[0] = $sec; | ||||
| 10 | } | ||||
| 11 | 1 | 30µs | POSIX::strftime(q!! . '%z' . q!!,@_); # spent 30µs making 1 call to POSIX::strftime | ||
| 12 | } | ||||
| 13 | ; |